Formular vzdy na vrchu
Otázka od: Vymazal Milan
23. 9. 2002 15:07
Zdravim
mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
okno.
procedure TIntellForm.FormCreate(Sender: TObject);
begin //??
intellform.Top:=0;
intellform.show;
table1.visible:=false;
intellform.FormStyle:=fsStayOnTop;
height:=19;
end
no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
mi to nejde. nevite kde je problem
Milan
Odpovedá: Vaclav Sazima
23. 9. 2002 16:24
Ahoj,
zkus jeste pridat :
procedure TIntellForm.FormActivate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_HWNDPARENT, 0);
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOMOVE or SWP_NOSIZE);
end;
Vymazal Milan wrote:
>
> Zdravim
>
> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
> okno.
>
> procedure TIntellForm.FormCreate(Sender: TObject);
> begin //??
> intellform.Top:=0;
> intellform.show;
> table1.visible:=false;
> intellform.FormStyle:=fsStayOnTop;
> height:=19;
> end
>
> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
> mi to nejde. nevite kde je problem
>
> Milan
Odpovedá: Maxian Michal
23. 9. 2002 16:42
Skus to tam dat miesto:
intellform.show;
toto
intellform.showmodal;
malo by to ostat na vrchu.
Michal Maxian
-----Original Message-----
From: Vymazal Milan [mailto:vymazal.milan@seznam.cz]
Sent: Monday, September 23, 2002 3:02 PM
To: delphi-l@clexpert.cz
Subject: Formular vzdy na vrchu
Zdravim
mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
okno.
procedure TIntellForm.FormCreate(Sender: TObject);
begin //??
intellform.Top:=0;
intellform.show;
table1.visible:=false;
intellform.FormStyle:=fsStayOnTop;
height:=19;
end
no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
mi to nejde. nevite kde je problem
Milan
Odpovedá: Vaclav Sazima
24. 9. 2002 15:41
Ahoj,
Vymazal Milan wrote:
>
> VS> procedure TIntellForm.FormActivate(Sender: TObject);
> VS> begin
> VS> SetWindowLong(Handle, GWL_HWNDPARENT, 0);
> VS> SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
> VS> SWP_NOMOVE or SWP_NOSIZE);
> VS> end;
>
> super tohle pomohlo.. funguje to skvele. ale kde jsi tohle nasel.
>
Subject:
Re: Form Stay on top
Date:
Wed, 15 Dec 1999 08:12:21 +0100
From:
Miroslav Mareš <sm@sct.cz>
Reply-To:
delphi-l@fwd.cz
To:
<delphi-l@fwd.cz>
Vaclav Sazima
Odpovedá: Vymazal Milan
24. 9. 2002 11:18
Hello Vaclav,
Monday, September 23, 2002, 4:08:27 PM, you wrote:
VS> Ahoj,
VS> zkus jeste pridat :
VS> procedure TIntellForm.FormActivate(Sender: TObject);
VS> begin
VS> SetWindowLong(Handle, GWL_HWNDPARENT, 0);
VS> SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
VS> SWP_NOMOVE or SWP_NOSIZE);
VS> end;
super tohle pomohlo.. funguje to skvele. ale kde jsi tohle nasel.
jinak dik
VS> Vymazal Milan wrote:
>>
>> Zdravim
>>
>> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
>> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
>> okno.
>>
>> procedure TIntellForm.FormCreate(Sender: TObject);
>> begin //??
>> intellform.Top:=0;
>> intellform.show;
>> table1.visible:=false;
>> intellform.FormStyle:=fsStayOnTop;
>> height:=19;
>> end
>>
>> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
>> mi to nejde. nevite kde je problem
>>
>> Milan
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedá: Vymazal Milan
24. 9. 2002 10:58
Hello Maxian,
Monday, September 23, 2002, 5:09:41 PM, you wrote:
MM> Skus to tam dat miesto:
MM> intellform.show;
MM> toto
MM> intellform.showmodal;
no tohle nepomohlo. ale to bude mozna tim ze jsem to okno skoval ve
statusbaru
dik
MM> malo by to ostat na vrchu.
MM> Michal Maxian
MM> -----Original Message-----
MM> From: Vymazal Milan [mailto:vymazal.milan@seznam.cz]
MM> Sent: Monday, September 23, 2002 3:02 PM
MM> To: delphi-l@clexpert.cz
MM> Subject: Formular vzdy na vrchu
MM> Zdravim
MM> mam jednu aplikaci ktera se po spusteni chova do Traybaru. U jednoho
MM> formulare po vytvoreni volam jeho zobrazeni. Takovy maly vyhledavaci
MM> okno.
MM> procedure TIntellForm.FormCreate(Sender: TObject);
MM> begin //??
MM> intellform.Top:=0;
MM> intellform.show;
MM> table1.visible:=false;
MM> intellform.FormStyle:=fsStayOnTop;
MM> height:=19;
MM> end
MM> no a chci udelat to aby tento vyhledavaci byl stale na vrchu a nejak
MM> mi to nejde. nevite kde je problem
MM> Milan
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz